home *** CD-ROM | disk | FTP | other *** search
/ USA Bestseller / USA BESTSELLER Vol 1-95 (Hepp-Computer)(1995).iso / e193 / 0150ter2._xe / OS2.EXE / INSTALL.CMD next >
OS/2 REXX Batch file  |  1994-02-10  |  2KB  |  72 lines
  1. /*
  2. @Goto NoRexx
  3. */
  4.  
  5. /* REXX-Script to create Terminate-Folder, made by Martin Lorensen */
  6. /* Modified by Bo Bendtsen */
  7.  
  8. /* Init */
  9. Cls
  10. Say "Creating folder on WPS for Terminate. Please wait..."
  11.  
  12. Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  13. Call SysLoadFuncs
  14.  
  15. TerDir=Directory()
  16. TerDir=SubStr(TerDir,1,LastPos('\',TerDir))
  17. Say "Terminate should be installed in "TerDir"."
  18. Say "If it isn't, this script would not work."
  19. ObjMode="Replace"
  20. rc=0
  21.  
  22. /* The Folder */
  23. Class = "WPFolder"
  24. Location = "<WP_DESKTOP>"
  25. Title = "Terminate"
  26. SetupString = "OBJECTID=<TER>;ICONFILE="TerDir"OS2\T-OS2.ICO;BACKGROUND="TerDir"OS2\T-OS2.BMP;"
  27. rc = rc + (SysCreateObject(Class,Title,Location,SetupString,ObjMode)<>1)
  28.  
  29. /* The Programs in the folder */
  30. ObjMode="UpDate"
  31. Class = "WPProgram"
  32. Location = "<TER>"
  33.  
  34. Title = "Terminate"
  35. SetupString ="OBJECTID=<TEREXE>;ICONFILE="TerDir"OS2\T-OS2.ICO;PROGTYPE=VDM;EXENAME="TerDir"TERMINAT.EXE;STARTUPDIR="TerDir";"
  36. rc = rc + (SysCreateObject(Class,Title,Location,SetupString,ObjMode)<>1)
  37.  
  38. Title = "File Manager"
  39. SetupString ="OBJECTID=<TERFM>;ICONFILE="TerDir"OS2\T-FM.ICO;PROGTYPE=VDM;EXENAME="TerDir"TERMINAT.EXE;PARAMETERS=/F;STARTUPDIR="TerDir";"
  40. rc = rc + (SysCreateObject(Class,Title,Location,SetupString,ObjMode)<>1)
  41.  
  42. Title = "TerMail"
  43. SetupString = "OBJECTID=<TMAIL>;ICONFILE="TerDir"OS2\TM-OS2.ICO;PROGTYPE=VDM;EXENAME="TerDir"TMAIL\TMAIL.EXE;STARTUPDIR="TerDir"TMAIL;"
  44. rc = rc + (SysCreateObject(Class,Title,Location,SetupString,ObjMode)<>1)
  45.  
  46. Title = "Why register?"
  47. SetupString = "OBJECTID=<TERREGDOC>;ICONFILE="TerDir"OS2\T-DOC.ICO;EXENAME=E.EXE;PARAMETERS="TerDir"DOCS\YOUGET.DOC;"
  48. rc = rc + (SysCreateObject(Class,Title,Location,SetupString,ObjMode)<>1)
  49.  
  50. Title = "Terminate & OS/2"
  51. SetupString = "OBJECTID=<TEROS2DOC>;ICONFILE="TerDir"OS2\T-DOC.ICO;EXENAME=E.EXE;PARAMETERS="TerDir"OS2\OS2.DOC;"
  52. rc = rc + (SysCreateObject(Class,Title,Location,SetupString,ObjMode)<>1)
  53.  
  54. /* Open folder */
  55. Class = "WPFolder"
  56. Location = "<WP_DESKTOP>"
  57. Title = "Terminate"
  58. SetupString = "OBJECTID=<TER>;OPEN=Default;"
  59. rc = rc + (SysCreateObject(Class,Title,Location,SetupString,ObjMode)<>1)
  60.  
  61. Say
  62. Say "Terminate folder created. "RC" problem(s) detected."
  63. Exit;
  64.  
  65. /* Users without REXX-support! */
  66.  
  67. :NoRexx
  68. @Echo Off
  69. Echo FATAL ERROR: No REXX-suport is installed.
  70. Echo Please install REXX and then try again.
  71.  
  72.